
type
   link	= ^node;
   info	= record
	     imie     : ShortString;
	     nazwisko : ShortString;
	  end;	      
   node	=  record
	      item : info;
	      next :  link;
	   end;
var
   t :  link;
begin
   new(t);
   t^.item.imie := 'Jan';
   t^.item.nazwisko := 'Kowalski';
   writeln(t^.item.imie, ' ' , t^.item.nazwisko);
end.